Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Bombardier_PC/BSCRIPTS.CST/00006_Script_sub menus

Text File | 1999-04-25 | 1KB | 60 lines

-- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
-- Developed for Bombardier, Inc.
--
-- All programming developed by:
-- Robert Fabricant, Valerie Valoueva, Ossi Shaked,
-- Henry Sauvageot, Chris Howell & Chris Girand
--
-- Use of this code by parties other than @radical.media, inc. or their
--agents
-- without the express written consent of @radical.media, inc. AND Concurrent
-- New Media Group, L.L.C. is strictly prohibited.
------------------------------------------------------
-------*This script is not used in this version of the movie*----------

property sprt

on getPropertyDescriptionList
  set description=[:]

  addProp description,#sprt,[#default:"",#format:#integer, ¼
  #comment:"The sprite number "]

  return description
end

on getbehaviorDescription
  return "changes the image on rollover"
end


on mouseEnter me
  global gSub
  if gSub <> sprt then
    set the castnum of sprite sprt to the castnum of sprite sprt +1
    updatestage
  end if
end

on mouseleave me
  global gSub
  if gSub <> sprt then
    set the castnum of sprite sprt to the castnum of sprite sprt -1
    updatestage
  end if
end


on mouseup me
  global gSub,gSImage,gMode

  puppetsound 3,"mousedn"
  set gMode="menu"

  if gSub <> sprt then
    set gSub = sprt
  end if
  pass
end